home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ WinNT AutoShares 3.xpl < prev    next >
Text File  |  2001-04-12  |  2KB  |  74 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH"="Network\Security\Shares"
  5. "NAME"="Removable Hard Disks Shares Access"
  6. "VERSION"="1.01"
  7. "OSVERSION"="000101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Only members of computer's "Administrator" group"
  10. "TEXT 2"="Only members of "Administrator" and "Power Users" groups"
  11. "TEXT 3"="Only members of "Administrator" group and the local user"
  12. "DESCRIPTION 1"="This plug-in can be changed to restrict the access to removable hard disks once a user has logged on."
  13. "DESCRIPTION 2"=""Removeable hard disks" are drives like IOmega JAZ, ZIP etc."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com/"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="Registry Key: <Allocatedasd>
  18. "COMMENT 2"="Funny: <DASD> is an old mainframe term (!!) for Direct Access Storage Device, means: a hard drive"
  19.  
  20.  
  21.  
  22. sP="HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Allocatedasd"
  23.  
  24. '   Allocatedasd (DASD is an old mainframe term for Direct Access 
  25. 'Storage Device--a hard drive) has three possible values to control 
  26. 'access:
  27. '  - 0  Only members of the computer's Administrator group. 
  28. '  - 1  Only members of the Administrator and Power Users groups. 
  29. '  - 2  Only members of the Administrator group and the local current user.
  30.  
  31.  
  32. Sub Plugin_Initialize 
  33.     i=RegReadValue(sP)
  34.     Select case i
  35.     case 0
  36.          SetUIElement 1,true
  37.     case 1   
  38.          SetUIElement 2,true
  39.     case 2
  40.          SetUIElement 3,true
  41.     case else
  42.          SetUIElement 1,true
  43.     end select
  44.  
  45.  
  46. End Sub
  47.  
  48. Sub Plugin_CheckData(ElementIndex)
  49. End Sub
  50.  
  51. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  52.  i=0
  53.  if GetUIElement(1)=true then
  54.     i=0
  55.  end if
  56.  
  57.  if GetUIElement(2)=true then
  58.     i=1
  59.  end if
  60.  
  61.  if GetUIElement(3)=true then
  62.     i=2
  63.  end if
  64.  
  65.  
  66.  Call RegWriteValue(sP,i,1)
  67.  Call Restart()
  68. End Sub
  69.  
  70. Sub Plugin_Terminate 
  71. End Sub
  72.  
  73.  
  74.